Celestin Apprentice 5/Apprentice-Release5.iso/Environments/SmallEiffel 0.3.3/SmallEiffel 68k/lib_test/test_integer_ref3.e

Text File | 1996-06-13 | 425 b | 26 lines | [TEXT/EDIT]

-- Part of SmallEiffel -- Read DISCLAIMER file -- Copyright (C)
-- Dominique COLNET and Suzanne COLLIN -- [e-mail]
--
class TEST_INTEGER_REF3

creation make

feature

   make is
      do
     foo(3);
      end;

   foo(ir: INTEGER_REF) is
      do
     if ir = Void then
        std_output.put_string("TEST_INTEGER_REF3: ERROR Test #1%N");
     end;
     check
        ir.item = 3;
     end;
      end;

end -- TEST_INTEGER_REF3